Celestin Apprentice 7/Apprentice-Release7.iso/Source Code/C/Applications/MacPerl 5.1.3/Mac_Perl_513_src/perl5.002/lib/fastcwd.pl

Text File | 1996-07-11 | 213 b | 11 lines | [TEXT/MPS ]

# By John Bazik
#
# Usage: $cwd = &fastcwd;
#
# This is a faster version of getcwd.  It's also more dangerous because
# you might chdir out of a directory that you can't chdir back into.

use Cwd qw(fastcwd);

1;